object NoteBookForm: TNoteBookForm
  Left = 73
  Top = 61
  Width = 480
  Height = 331
  Caption = 'NoteBook.. File: Untitled'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 472
    Height = 29
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    EdgeOuter = esRaised
    Indent = 4
    TabOrder = 0
    object Panel1: TPanel
      Left = 4
      Top = 2
      Width = 266
      Height = 22
      BevelOuter = bvNone
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      object Previousbtn: TBitBtn
        Left = 112
        Top = 0
        Width = 28
        Height = 22
        Hint = 'Previous File List'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = FromListClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500055555500
          00005777FFFFFF77777750B077000003333057F77777777F555750B070888803
          B3B057F7F75FFF7F555700B07700000B3B3077F7F577777F555750B07777770B
          B3B057F7F555557F555750B07777770BBB3057F7FFFFFF7F555750B00000000B
          BBB057F77777777F555750B05F5F5F0BBBB057F7F7F7F77F555750B05F5F5F0B
          BBB057F7F7F7F77F555750B05F5F5F0BBBB057F7F7F7F77F555750B07777770B
          BBB057F77777777F555750B05F5F5F0BBBB057F7F757577F5557500055555503
          BBB057775555557F555755555555550B3BB055555555557F5557555555555503
          B3B055555555557FFFF755555555550000005555555555777777}
        NumGlyphs = 2
      end
      object Newbtn: TBitBtn
        Left = 84
        Top = 0
        Width = 28
        Height = 22
        Hint = 'New'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = New1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
          0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
          33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object SaveAsbtn: TBitBtn
        Left = 56
        Top = 0
        Width = 28
        Height = 22
        Hint = 'Save File As'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = SaveAs1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
          3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
          B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
          33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
          000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
          033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
          BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
          33B33733333773333373B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object Savebtn: TBitBtn
        Left = 28
        Top = 0
        Width = 28
        Height = 22
        Hint = 'Save'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = Save1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
          7700333333337777777733333333008088003333333377F73377333333330088
          88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
          000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
          FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
          99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
          99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
          99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
          93337FFFF7737777733300000033333333337777773333333333}
        NumGlyphs = 2
      end
      object Loadbtn: TBitBtn
        Left = 0
        Top = 0
        Width = 28
        Height = 22
        Hint = 'Load A Diary File'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = Load1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
          07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
          0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object NewPagebtn: TBitBtn
        Left = 145
        Top = 0
        Width = 28
        Height = 22
        Hint = 'New Page'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = NewPage1Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333C0C33333333333CC0F0C333333333C30F0F0C3333333C00FFF0F0
          C3333CC0FFFFFF0F0C33C30F0FFFFFF0F0C300FFF0FFFFFF0F0C0FFFFF0FFFFF
          F0F030FFFFF0FFFFFF03330FFFFF0FFF00333330FFFFF000333333330FFF0333
          3333333330003333333333333333333333333333333333333333}
      end
      object Replacebtn: TBitBtn
        Left = 204
        Top = 0
        Width = 28
        Height = 22
        Hint = 'Find & Replace'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = FindReplace1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
          055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
          005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
          B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
          305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
          305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
          30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
          3055577777555557F7F555000555555999555577755555577755}
        NumGlyphs = 2
      end
      object Locatebtn: TBitBtn
        Left = 173
        Top = 0
        Width = 28
        Height = 22
        Hint = 'Locate Page'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnClick = LocatePage1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
          33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
          8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
          F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
          F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
          0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
          B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
          B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
          333333333777733333333333FBFBFB3333333333333333333333}
        NumGlyphs = 2
      end
    end
  end
  object Pages: TTabControl
    Left = 0
    Top = 29
    Width = 472
    Height = 256
    Align = alClient
    HotTrack = True
    TabIndex = 0
    TabOrder = 1
    Tabs.Strings = (
      'Page One'
      'Page Two'
      'Page Three'
      'Page Four'
      'Page Five'
      'Page Six')
    OnChange = PagesChange
    object Memo: TMemo
      Left = 4
      Top = 54
      Width = 464
      Height = 198
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 0
      OnChange = MemoChange
    end
    object ToolBar2: TToolBar
      Left = 4
      Top = 24
      Width = 464
      Height = 30
      EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
      EdgeOuter = esRaised
      Indent = 4
      TabOrder = 1
      object FontPanel: TPanel
        Left = 4
        Top = 2
        Width = 185
        Height = 22
        Hint = 'Pages Font'
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Color = clWhite
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = FontPanelClick
      end
      object Colbtn: TBitBtn
        Left = 189
        Top = 2
        Width = 24
        Height = 22
        Hint = 'Font Colour'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = ColbtnClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          777777007770000077777077770BFBFB00777077770707BFBF0770777770E070
          7B077700770707090FB07777000BFB707BF07770BFBFBFB707B07770F707FBF0
          C0F07770B0CC707707B07770F7070C0BFB0777770FBF707FB0777777700BFBF0
          0777777777700007777777777777777777777777777777777777}
      end
      object Panel2: TPanel
        Left = 213
        Top = 2
        Width = 243
        Height = 22
        BevelOuter = bvNone
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 2
        object Findbtn: TBitBtn
          Left = 36
          Top = 0
          Width = 28
          Height = 22
          Hint = 'Find'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = Find1Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
        end
        object PrintPagebtn: TBitBtn
          Left = 4
          Top = 0
          Width = 28
          Height = 22
          Hint = 'Print This Page'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = PrintPage1Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
            8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
            8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
            8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          NumGlyphs = 2
        end
        object PageNamebtn: TBitBtn
          Left = 64
          Top = 0
          Width = 28
          Height = 22
          Hint = 'Change Pages Name'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnClick = ChangePageName1Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF
            F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F
            F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF
            F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F
            F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF
            F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
            F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
            333337FFFFFFFF77333330000000000333333777777777733333}
          NumGlyphs = 2
        end
        object StartAgainbtn: TBitBtn
          Left = 92
          Top = 0
          Width = 28
          Height = 22
          Hint = 'Start Page Again'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnClick = StartPageAgain1Click
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333933333333333393399300000000099333990FFFFFFF993333399FFFFFF9
            903333339900F099F0333333099FF99FF03333330F9999F0F03333330FF99FFF
            F03333330F99990000333333099FF99F033333339907F099333333399FFFF009
            9333339900000033993339933333333339933333333333333333}
        end
        object InsertDatebtn: TBitBtn
          Left = 125
          Top = 0
          Width = 28
          Height = 22
          Hint = 'Insert Date'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = InsertDatebtnClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
            00003330FFFFFFFFFFF03330FFFF000FFFF03330FFFFF0FFFFF03330FFFF00FF
            FFF03330FFFFF0FFFFF033390FFFFFFFFFF0333990FFF0F0F0F00999990F00F0
            80F009999990F0F080F0099999990FF0F0F009999990FFFF000009999900FFFF
            0FF03339909999990F0333390FFFFFFF00333330000000000333}
        end
        object MailPrint: TBitBtn
          Left = 183
          Top = 0
          Width = 28
          Height = 22
          Hint = 'Print Using MailMerge'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnClick = MailPrintClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            00030777777777777770077777777777777000000000000000000F7F7F7F7F7F
            7F7007F7F7F7F7F7F9F00F7F7F7F7F7F7F7000000000000000000FFFFFFFFFFF
            FFF00FFFF888FFFFFFF00FFFFFFFFFFFFFF00FFFF888888FFFF00FFFFFFFFFFF
            99900F888FFFFFFF9CA00FFFFFFFFFFF9A900000000000000000}
        end
        object InsertAdrFieldsbtn: TBitBtn
          Left = 153
          Top = 0
          Width = 28
          Height = 22
          Hint = 'Insert MailMerge Instruction'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          OnClick = InsertAdrFieldsbtnClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333333333333000000000000000008FFFFFFFFFFFF800F88FFFFFFFF
            88F00FF8F80FFF88FFF008090F8F00FFFFF00FF9900FFE08FFF00999990F0FF8
            08F009999990FEEEE800099999990888888009999990FEEEE803099999088FF8
            0833333990F8F808333333390333883333333330333333333333}
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 152
    Top = 112
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
      end
      object Load1: TMenuItem
        Caption = '&Load '
        ShortCut = 16460
        OnClick = Load1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = '&Save As'
        ShortCut = 16449
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object LoadPage1: TMenuItem
        Caption = 'Load Text &File As Page'
        OnClick = LoadPage1Click
      end
      object SavePage1: TMenuItem
        Caption = 'Save Page As &Text File'
        OnClick = SavePage1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object PreviousFile1: TMenuItem
        Caption = 'Previous &File'
        object FromList: TMenuItem
          Caption = '&From List'
          OnClick = FromListClick
        end
        object N9: TMenuItem
          Caption = '-'
          Visible = False
        end
        object PF1: TMenuItem
          Caption = '&1'
          Visible = False
          OnClick = PF1Click
        end
        object PF2: TMenuItem
          Tag = 1
          Caption = '&2'
          Visible = False
          OnClick = PF1Click
        end
        object PF3: TMenuItem
          Tag = 2
          Caption = '&3'
          Visible = False
          OnClick = PF1Click
        end
        object PF4: TMenuItem
          Tag = 3
          Caption = '&4'
          Visible = False
          OnClick = PF1Click
        end
        object PF5: TMenuItem
          Tag = 4
          Caption = '&5'
          Visible = False
          OnClick = PF1Click
        end
      end
      object AutoLoad1: TMenuItem
        Caption = 'AutoLoad'
        OnClick = AutoLoad1Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object NewPage1: TMenuItem
        Caption = '&New Page'
        OnClick = NewPage1Click
      end
      object DeletePage1: TMenuItem
        Caption = '&Delete Page'
        OnClick = DeletePage1Click
      end
      object StartPageAgain1: TMenuItem
        Caption = '&Start Page Again'
        OnClick = StartPageAgain1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object ChangePageName1: TMenuItem
        Caption = '&Change Page Name'
        OnClick = ChangePageName1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object FindReplace1: TMenuItem
        Caption = 'Find && &Replace'
        ShortCut = 16466
        OnClick = FindReplace1Click
      end
    end
    object Search1: TMenuItem
      Caption = '&Search'
      object Find1: TMenuItem
        Caption = '&Find'
        ShortCut = 16454
        OnClick = Find1Click
      end
      object FindNext1: TMenuItem
        Caption = 'Find &Next'
        ShortCut = 16474
        OnClick = Find1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object LocatePage1: TMenuItem
        Caption = '&Locate Page'
        ShortCut = 16507
        OnClick = LocatePage1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&Options'
      object SortPages1: TMenuItem
        Caption = '&Sort Pages'
        OnClick = SortPages1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object PageFont1: TMenuItem
        Caption = 'Page &Font'
        OnClick = FontPanelClick
      end
      object PageColour1: TMenuItem
        Caption = 'Page &Colour'
        OnClick = ColbtnClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object PrintPage1: TMenuItem
        Caption = '&Print Page'
        OnClick = PrintPage1Click
      end
      object PrintAll1: TMenuItem
        Caption = 'Print &All'
        OnClick = PrintAll1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        OnClick = Contents1Click
      end
      object Index1: TMenuItem
        Caption = '&Index'
        OnClick = Index1Click
      end
      object HowToRegister1: TMenuItem
        Caption = '&How To Register'
        OnClick = HowToRegister1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object TheNotebook1: TMenuItem
        Caption = 'The &Notebook'
        OnClick = TheNotebook1Click
      end
    end
  end
  object FontD: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Left = 248
    Top = 109
  end
  object ColorD: TColorDialog
    Ctl3D = True
    Left = 224
    Top = 157
  end
  object InsertDatePop: TPopupMenu
    Alignment = paCenter
    AutoPopup = False
    Left = 344
    Top = 85
    object N11: TMenuItem
      Caption = '&1'
      OnClick = N11Click
    end
    object N21: TMenuItem
      Tag = 1
      Caption = '&2'
      OnClick = N11Click
    end
    object N31: TMenuItem
      Tag = 2
      Caption = '&3'
      OnClick = N11Click
    end
    object N41: TMenuItem
      Tag = 3
      Caption = '&4'
      OnClick = N11Click
    end
    object N51: TMenuItem
      Tag = 4
      Caption = '&5'
      OnClick = N11Click
    end
    object N61: TMenuItem
      Tag = 5
      Caption = '&6'
      OnClick = N11Click
    end
    object N71: TMenuItem
      Tag = 6
      Caption = '&7'
      OnClick = N11Click
    end
    object N81: TMenuItem
      Tag = 7
      Caption = '&8'
      OnClick = N11Click
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object N72: TMenuItem
      Tag = 8
      Caption = '&7'
      OnClick = N11Click
    end
    object N82: TMenuItem
      Tag = 9
      Caption = '&8'
      OnClick = N11Click
    end
    object N92: TMenuItem
      Tag = 10
      Caption = '&9'
      OnClick = N11Click
    end
  end
  object InsertAdrFieldsPop: TPopupMenu
    Alignment = paCenter
    AutoPopup = False
    Left = 373
    Top = 85
    object IA1: TMenuItem
      Caption = '1'
      OnClick = IA1Click
    end
    object IA2: TMenuItem
      Caption = '2'
      OnClick = IA1Click
    end
    object IA3: TMenuItem
      Caption = '3'
      OnClick = IA1Click
    end
    object IA4: TMenuItem
      Caption = '4'
      OnClick = IA1Click
    end
    object IA5: TMenuItem
      Caption = '5'
      OnClick = IA1Click
    end
    object IA6: TMenuItem
      Caption = '6'
      OnClick = IA1Click
    end
    object IA7: TMenuItem
      Caption = '7'
      OnClick = IA1Click
    end
    object IA8: TMenuItem
      Caption = '8'
      OnClick = IA1Click
    end
    object IA9: TMenuItem
      Caption = '9'
      OnClick = IA1Click
    end
    object N13: TMenuItem
      Caption = '-'
    end
    object CurrentDate1: TMenuItem
      Caption = 'Current &Date'
      OnClick = IA1Click
    end
    object CurrentTime1: TMenuItem
      Caption = 'Current &Time'
      OnClick = IA1Click
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object Help2: TMenuItem
      Caption = '&Help'
      OnClick = Help2Click
    end
  end
end